Belgian Amiga Club - ADF Collection/BS1 part 41.zip/BS1 part 41/Compute`s Amiga resource 1.adf/Source/8ColorWbench/Normalbench.mod

Text File | 1989-02-08 | 442b | 25 lines

MODULE Normalbench;

FROM Intuition IMPORT OpenWorkBench, ScreenPtr, RemakeDisplay;
FROM Graphics IMPORT BitMapPtr;
FROM Rasters IMPORT FreeRaster;
FROM SYSTEM IMPORT BYTE;

VAR
 Scr: ScreenPtr;
 bm : BitMapPtr;

BEGIN
 Scr := OpenWorkBench();
 WITH Scr^ DO
  bm := RastPort.BitMap;
  WITH bm^ DO
   IF CARDINAL(Depth)=3 THEN
    FreeRaster(Planes[2],Width,Height);
    Depth := BYTE(2);
   END;
  END;
 END;
 RemakeDisplay;
END Normalbench.